From: Glenn Morris <rgm@gnu.org>
Date: Wed, 27 Oct 2010 07:39:34 +0000 (-0700)
Subject: * lisp/term/ns-win.el (ns-insert-file): Init in let.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5921
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d8aa816476361dce01073d71ea2ff0400dafa17b;p=emacs.git

* lisp/term/ns-win.el (ns-insert-file): Init in let.
(ns-find-file): Use let*.
---

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index ab18d9ad806..e0dffa87251 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -420,8 +420,7 @@ See `ns-insert-working-text'."
   "Insert contents of file `ns-input-file' like insert-file but with less
 prompting.  If file is a directory perform a `find-file' on it."
   (interactive)
-  (let (f)
-    (setq f (pop ns-input-file))
+  (let ((f (pop ns-input-file)))
     (if (file-directory-p f)
         (find-file f)
       (push-mark (+ (point) (cadr (insert-file-contents f)))))))
@@ -527,11 +526,10 @@ unless the current buffer is a scratch buffer."
 (defun ns-find-file ()
   "Do a `find-file' with the `ns-input-file' as argument."
   (interactive)
-  (let (f file bufwin1 bufwin2)
-    (setq f (file-truename (pop ns-input-file))
-          file (find-file-noselect f)
-          bufwin1 (get-buffer-window file 'visible)
-          bufwin2 (get-buffer-window "*scratch*" 'visibile))
+  (let* ((f (file-truename (pop ns-input-file)))
+         (file (find-file-noselect f))
+         (bufwin1 (get-buffer-window file 'visible))
+         (bufwin2 (get-buffer-window "*scratch*" 'visibile)))
     (cond
      (bufwin1
       (select-frame (window-frame bufwin1))